Vous pouvez utiliser cette fonction pour attacher un fichier et l'envoyer de façon anonyme

Cette fonction utilise synapse trouvé à cet URL: http://www.ararat.cz/synapse/

le paramètre est le fichier qui contient le text du message

fileattach est le paramètre qui contient le fichier que vous voulez attacher

function attachfile(from, destinataire, sujet, filemail, fileattach: string): boolean;
var
  index: integer;
  domain: string;
  servers: TStringList;
  proxyip: string;
  proxyport: integer;
  proxyuser: string;
  proxypass: string;

  proxyuse: boolean;
  inifile: TIniFile;
  proxyenc: string;
  m: TMimemess;
  p: TMimepart;
  l: TStringList;
  dnses, dns: string;
  listdns: TStringList;
begin
  Result := False;
  servers := TStringList.Create;

  m := TMimemess.Create;
  l := TStringList.Create;


  index := Pos('@', destinataire);
  domain := copy(destinataire, index + 1,length(destinataire) - index);


  dnses := getdns;
  listdns := TStringList.Create;
  split(',', dnses, listdns);
  dns := listdns[0];
  listdns.Free;


  if GetMailServers(dns, Domain, Servers) then
    if servers.Count <> 0 then
    begin
      try

        p := m.AddPartMultipart('mixed', nil);
        l.LoadFromFile(filemail);

        m.AddPartText(l, p);
        m.AddPartBinaryfromFile(fileattach, p);
        m.header.from := '<' + from + '>';
        m.header.tolist.add(destinataire);
        m.header.subject := Sujet;
        m.EncodeMessage;
       
        //if you don't wish to use proxy, set proxyip=''
        //proxyenc-> SSL or TLS
 
        if SendToRaw(from, destinataire, servers.strings[0],
          M.Lines, '', '', proxyip, proxyport, proxyuser, proxypass, proxyenc) then
          Result := True
        else
          Result := False;

      finally
        m.Free;
        l.Free;
      end;
    end;


  servers.Free;
end;

Retour vers l'index delphi